DF <- data.frame(y=rnorm(21), `x 1`=-10:10., check.names = FALSE)